home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / ums / ums109_1.lha / Install-UMS < prev    next >
Text File  |  1994-08-03  |  65KB  |  2,053 lines
  1. ; $VER Install-UMS 10.9 (3.8.94)
  2. ;
  3. ; History: vxx.x  [kai] 20-Sep-93 started written history
  4. ; History: v10.6  [kai] 22-Sep-93 final cleanup
  5. ; History: v10.7  [kai] 29-Sep-93 real cleanup
  6. ; History: v10.7a [kai] 30-Sep-93 zer.username corrected
  7. ; History: v10.7b [kai] 30-Sep-93 expire.grouplist corrected
  8. ; History: v10.7c [kai] 15-Okt-93 Z-Netz stabilized / Fido-bound simplified
  9. ; History: v10.7d [kai] 17-Okt-93 better client
  10. ; History: v10.7e [kai] 26-Okt-93 better paths for Fido
  11. ; History: v10.7f [kai] 12-Nov-93 check if UUCP already installed
  12. ; History: v10.7g [kai] 17-Nov-93 Fido: no defaultregion, createintl
  13. ; History: v10.9  [olk] 03-Aug-94
  14. ;          Install-UMS, MakeAssign, ReadMe: version number bumped to 10.9
  15. ;          CleanMB-script: Copy pattern for messagebase backups corrected
  16. ;          CleanMB-script: Expire options corrected, now uses ARCHIVE and OLD
  17. ;          Tools/ImportExport.LHA: UMS-Export updated to v2.6
  18. ;          Tools/Expire.LHA: updated to v1.12
  19. ;          Tools/sumstl.LHA: updated to v2.7a, added sumsfolder
  20. ;          Tools/UMSPassword.LHA: updated to v0.11
  21. ;          Tools/Receiver2Folder.LHA: v1.1 added
  22. ;          Tools/ReadMessage.LHA: v1.4 added
  23. ;          Drivers/UUCP.LHA: updated to v0.8
  24. ;          UMS-UUCP: added support for "encoding"
  25. ;                    added support for "keepdupes"
  26. ;                    changed for new "newsexport" and "mailexport" syntax
  27. ;          Reader/IntuiNews.LHA: updated to v1.2b
  28. ;          Developer.LHA: updated C-Interfaces to v10.3
  29. ;          RX is now made resident to avoid problems
  30. ;          Tools/GenMail.LHA: v1.0 added
  31. ;          Tools/ConfUMS.LHA: v1.1a added
  32. ;          hGRexxSupport1_2.lha integrated into User.LHA
  33. ;          RexxDosSupport2_2.lha integrated into User.LHA
  34. ;          User.LHA: QuitUMS.rexx, FlushUMS.rexx and CleanUMS.rexx updated
  35. ;                    added support for REXX:UMSInit.rexx
  36. ;                    added mlist2folder.rexx, Vacation.rexx
  37. ;                          and ReplyDeamon.rexx
  38. ;          changed search path from bin-s-rexx to s-rexx-bin to
  39. ;                  allow easy replacing of binaries with scripts
  40. ;          moved Readers from disk 1 to disk 2 for space reasons
  41. ;          Developer.LHA: updated everything in Developer/arexx
  42. ;          Tools/UMSMM.LHA: v1.1 added
  43. ;          Developer/doc/LoginGuide: v0.4 added
  44. ;          included 15 in HEADERFIELDS and INDEXFIELDS for folder support
  45. ;          included the following changes from Kai's 10.9 beta:
  46. ;             changed (de)arccmd to fido(de)arccmd
  47. ;             added TransAmiga to the BBS choices
  48. ;             appended .rexx to MakeFidoAlias/MakeFidoDomain-calls
  49. ;             united kai's and my fixes for the rx-Problems
  50. ;             corrected spelling error in Z-Netz part
  51. ;             changed FOOBAR-default to BLAFASEL for Z-Netz server box (why?)
  52. ;             UMSGroup.info is now moved
  53. ;             added QWK support throughout the script
  54. ;             added domainaddress question
  55. ;             added askdisk for second UMS 10.9 disk
  56. ;          hashfiles are excluded now from the backup in CleanMB
  57. ;          Drivers/ums-qwk1b.lha added
  58. ;          updated Installer-Script to support ums-qwk 1.1b
  59. ;          changed script to support italian localization of IntuiNews 1.2b
  60. ;          changed startup-label "UMS-UUCP" to "UUCP", this finally fixes the
  61. ;             long-standing bug of the missing uucp-assigns
  62.  
  63.  
  64. ; ToDo: ADSP, correct Update
  65. ;       UMSMapsTool1_0.lha, UMSM_117.lha, qwkdoor10.lha,
  66. ;       UMSGroup146.lha, UMSMaus2_4.lha, UMSMailStat-1_06.lha,
  67. ;       UMSZer2_22.lha, ums-qwk1b.lha
  68.  
  69. (transcript "Installing Universal Message System v10.9...")
  70.  
  71. (complete 0)
  72.  
  73. (message "This installation script only installs a basic UMS system with "
  74.          "only one single user and only one newsfeed for each network.\n\n"
  75.  
  76.          "In order to run a point on any network you may need additional "
  77.          "programs to exchange data packets with your newsfeed. "
  78.          "This programs are not supplied with UMS. Therefore this script "
  79.          "is unable to configure these programs.\n\n"
  80.  
  81.          "You'll still have to install a lot of things by hand but "
  82.          "this script gives you a working environment as a basis.\n\n")
  83.  
  84. (set @default-dest
  85.   (expandpath
  86.     (askdir
  87.       (prompt "In which disk or drawer should Universal Message System be installed?\n\n"
  88.               "(This script does not create a sub drawer for UMS)")
  89.       (help @askdir-help)
  90.       (default @default-dest)
  91.     )
  92.   )
  93. )
  94.  
  95. (if (<> (substr @default-dest (- (strlen @default-dest) 1) 1) ":")
  96.   (
  97.     (set @default-dest (cat @default-dest "/"))
  98.   )
  99. )
  100.  
  101. (working "Installing user material")
  102. (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing user material\" -I -a x UMS-Release_10.9_1:User.LHA \"" @default-dest "\"")
  103.   (prompt "Installing user material")
  104. )
  105.  
  106. (complete 5)
  107.  
  108. ; -------------------------------------------------------------------------
  109.  
  110. (set envoy (exists "LIBS:nipc.library"))
  111.  
  112. (if envoy
  113.   (
  114.     (set client
  115.       (askchoice
  116.         (prompt "Do you want to run UMS server on this machine or do you want "
  117.                 "to access the message base over a local area network using "
  118.                 "Commodore's networking software Envoy?")
  119.         (default 0)
  120.         (help @askchoices-help)
  121.         (choices "message base is on this machine"
  122.                  "message base is accessed via Envoy")
  123.       )
  124.     )
  125.     (if (= client 0)
  126.       (
  127.         (set server
  128.           (askbool
  129.             (prompt "Do you want to export UMS as an Envoy service?\n"
  130.                     "(This enables other machines in a local area network "
  131.                     "to use the message base of this machine over the net)")
  132.             (default 0)
  133.             (help @askbool-help)
  134.           )
  135.         )
  136.       )
  137.     )
  138.   )
  139.   (
  140.     (set client 0)
  141.   )
  142. )
  143.  
  144. ; -------------------------------------------------------------------------
  145.  
  146. (copylib
  147.   (help @copylib-help)
  148.   (prompt "Installing amigaguide.library")
  149.   (confirm)
  150.   (source (tackon @default-dest "user/libs/amigaguide.library"))
  151.   (dest "LIBS:")
  152. )
  153.  
  154. (copylib
  155.   (help @copylib-help)
  156.   (prompt "Installing hgrexxsupport.library")
  157.   (confirm)
  158.   (source (tackon @default-dest "user/libs/hgrexxsupport.library"))
  159.   (dest "LIBS:")
  160. )
  161.  
  162. (copylib
  163.   (help @copylib-help)
  164.   (prompt "Installing rexxdossupport.library")
  165.   (confirm)
  166.   (source (tackon @default-dest "user/libs/rexxdossupport.library"))
  167.   (dest "LIBS:")
  168. )
  169.  
  170. (if (= client 0)
  171.   (
  172.     (copylib
  173.       (help @copylib-help)
  174.       (prompt "Installing flush.library")
  175.       (confirm)
  176.       (source (tackon @default-dest "user/libs/flush.library"))
  177.       (dest "LIBS:")
  178.     )
  179.   )  
  180. )
  181.  
  182. ; (set slowprocessor (= (database "cpu") "68000"))
  183.  
  184. (set slowprocessor 1)
  185.  
  186. (if slowprocessor
  187.   (
  188.     (copylib
  189.       (help @copylib-help)
  190.       (prompt "Installing ums.library")
  191.       (confirm)
  192.       (source (tackon @default-dest "user/libs/ums.library"))
  193.       (dest "LIBS:")
  194.     )
  195.   )
  196.   (
  197.     (copylib
  198.       (help @copylib-help)
  199.       (prompt "Installing ums.library ('010 version)")
  200.       (confirm)
  201.       (source (tackon @default-dest "user/libs/ums.library.010"))
  202.       (newname "ums.library")
  203.       (dest "LIBS:")
  204.     )
  205.   )
  206. )
  207.  
  208. (if (= client 0)
  209.   (
  210.     (if slowprocessor
  211.       (
  212.         (copylib
  213.           (help @copylib-help)
  214.           (prompt "Installing UMS Server")
  215.           (confirm)
  216.           (source (tackon @default-dest "user/l/umsserver"))
  217.           (dest "L:")
  218.         )
  219.       )
  220.       (
  221.         (copylib
  222.           (help @copylib-help)
  223.           (prompt "Installing UMS Server ('010 version)")
  224.           (confirm)
  225.           (source (tackon @default-dest "user/l/umsserver.010"))
  226.           (newname "umsserver")
  227.           (dest "L:")
  228.         )
  229.       )
  230.     )
  231.     (if server
  232.       (
  233.         (set servicepath
  234.           (expandpath
  235.             (askdir
  236.               (prompt "In which drawer should ums.service be placed?")
  237.               (help @askdir-help)
  238.               (default "SYS:Envoy/Services")
  239.             )
  240.           )
  241.         )
  242.         (copylib
  243.           (help @copylib-help)
  244.           (prompt "Installing UMS Service")
  245.           (confirm)
  246.           (infos)
  247.           (source (tackon @default-dest "user/services/ums.service"))
  248.           (dest servicepath)
  249.         )
  250.         (message "Please activate \"ums.service\" using Envoy's \"Services Manager\"")
  251.       )
  252.     )
  253.   )
  254. )
  255.  
  256. (set bin-dest (tackon @default-dest "bin"))
  257. (set script-dest (tackon @default-dest "s"))
  258. (set rexx-dest (tackon @default-dest "rexx"))
  259. (set doc-dest (tackon @default-dest "doc"))
  260.  
  261. (if (= (exists bin-dest) 0)
  262.   (
  263.     (rename (tackon @default-dest "user/bin") bin-dest)
  264.   )
  265. )
  266.  
  267. (if (= client 0)
  268.   (
  269.     (copyfiles
  270.       (help @copyfiles-help)
  271.       (prompt "Installing REXX:UMSInit.rexx Include File")
  272.       (source (tackon @default-dest "user/rexx/UMSInit.rexx"))
  273.       (dest "REXX:")
  274.       (optional "force" "askuser")
  275.     )
  276.     (delete (tackon @default-dest "user/rexx/UMSInit.rexx"))
  277.     (if (exists rexx-dest)
  278.       (
  279.         (copyfiles
  280.           (help @copyfiles-help)
  281.           (prompt "Updating ARexx Scripts")
  282.           (source (tackon @default-dest "user/rexx"))
  283.           (dest rexx-dest)
  284.           (all)
  285.           (optional "force" "askuser")
  286.         )
  287.       )
  288.       (
  289.         (rename (tackon @default-dest "user/rexx") rexx-dest)
  290.       )
  291.     )
  292.   )
  293.   (
  294.     (makedir rexx-dest)
  295.   )
  296. )
  297.  
  298. (if (exists script-dest)
  299.   (
  300.     (copyfiles
  301.       (help @copyfiles-help)
  302.       (prompt "Updating AmigaDOS Scripts")
  303.       (source (tackon @default-dest "user/s"))
  304.       (dest script-dest)
  305.       (all)
  306.       (optional "force" "askuser")
  307.     )
  308.   )
  309.   (
  310.     (rename (tackon @default-dest "user/s") script-dest)
  311.   )
  312. )
  313.  
  314. (if (exists doc-dest)
  315.   (
  316.     (copyfiles
  317.       (help @copyfiles-help)
  318.       (prompt "Updating Docs")
  319.       (source (tackon @default-dest "user/doc"))
  320.       (dest doc-dest)
  321.       (all)
  322.       (optional "force" "askuser")
  323.     )
  324.   )
  325.   (
  326.     (rename (tackon @default-dest "user/doc") doc-dest)
  327.   )
  328. )
  329.  
  330. (run (cat "Delete >NIL: \"" (tackon @default-dest "user") "\" ALL"))
  331.  
  332. ; -------------------------------------------------------------------------
  333.  
  334. (if (= client 0)
  335.   (
  336.     (makedir (tackon @default-dest "mb"))
  337.     (set mbpath (tackon @default-dest "mb/"))
  338.  
  339.     (set mbpath
  340.       (expandpath
  341.         (askdir
  342.           (prompt "In which disk or drawer should the message base be placed?\n"
  343.                   "(you get a notable performance increase if you place the "
  344.                   "message base on a seperate partition with a large block "
  345.                   "size!)")
  346.           (help @askdir-help)
  347.           (default mbpath)
  348.         )
  349.       )
  350.     )
  351.  
  352.     (complete 10)
  353.  
  354.     (set tools
  355.       (askoptions
  356.         (prompt "Which tools do you want to install?")
  357.         (help @askoptions-help)
  358.         (choices "SelectMail" "Stuntzi's UMS Tools" "Top Ten" "ImportExport" "UMS Password" "Receiver2Folder" "ReadMessage" "GenMail" "ConfUMS" "UMSMM" "Expire" "Bouncer" "FixAccess")
  359.       )
  360.     )
  361.   )
  362.   (
  363.     (set tools
  364.       (askoptions
  365.         (prompt "Which tools do you want to install?")
  366.         (help @askoptions-help)
  367.         (choices "SelectMail" "Stuntzi's UMS Tools" "Top Ten" "ImportExport" "UMS Password" "Receiver2Folder" "ReadMessage" "GenMail" "ConfUMS" "UMSMM")
  368.       )
  369.     )
  370.   )
  371. )
  372.  
  373. (if (<> tools 0)
  374.   (
  375.     (makedir (tackon @default-dest "tools")
  376.       (prompt "Creating Tools directory")
  377.     )
  378.     (set tool-dest (tackon @default-dest "tools/"))
  379.   )
  380. )
  381.  
  382. (if (in tools 0)
  383.   (
  384.     (working "Installing SelectMail")
  385.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing SelectMail\" -I -a x UMS-Release_10.9_1:tools/SelectMail.LHA \"" tool-dest "\"")
  386.       (prompt "Installing SelectMail")
  387.     )
  388.     (delete (tackon bin-dest "SelectMail"))
  389.     (rename (tackon tool-dest "selectmail/SelectMail") (tackon bin-dest "SelectMail"))
  390.   )
  391. )
  392.  
  393. (if (in tools 1)
  394.   (
  395.     (working "Installing Stuntzi's UMS Tools")
  396.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing Stuntzi's UMS Tools\" -I -a x UMS-Release_10.9_1:tools/sumstl.LHA \"" tool-dest "\"")
  397.       (prompt "Installing Stuntzi's UMS Tools")
  398.     )
  399.     (delete   (tackon bin-dest "sumsset"))
  400.     (rename (tackon tool-dest "sumstl/sumsset")   (tackon bin-dest "sumsset"))
  401.     (delete (tackon bin-dest "sumsprint"))
  402.     (rename (tackon tool-dest "sumstl/sumsprint") (tackon bin-dest "sumsprint"))
  403.     (delete (tackon bin-dest "sumswrite"))
  404.     (rename (tackon tool-dest "sumstl/sumswrite") (tackon bin-dest "sumswrite"))
  405.     (delete (tackon bin-dest "sumsfolder"))
  406.     (rename (tackon tool-dest "sumstl/sumsfolder") (tackon bin-dest "sumsfolder"))
  407.   )
  408. )
  409.  
  410. (if (in tools 2)
  411.   (
  412.     (working "Installing TopTen")
  413.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing TopTen\" -I -a x UMS-Release_10.9_1:tools/TopTen.LHA \"" tool-dest "\"")
  414.       (prompt "Installing TopTen")
  415.     )
  416.     (delete (tackon bin-dest "TopTen"))
  417.     (rename (tackon tool-dest "TopTen/TopTen") (tackon bin-dest "TopTen"))
  418.   )
  419. )
  420.  
  421. (if (in tools 3)
  422.   (
  423.     (working "Installing UMS Import and Export tools")
  424.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing UMS Import and Export tools\" -I -a x UMS-Release_10.9_1:tools/ImportExport.LHA \"" tool-dest "\"")
  425.       (prompt "Installing UMS Import and Export tools")
  426.     )
  427.     (delete (tackon bin-dest "export"))
  428.     (rename (tackon tool-dest "importexport/export") (tackon bin-dest "export"))
  429.     (delete (tackon bin-dest "import"))
  430.     (rename (tackon tool-dest "importexport/import") (tackon bin-dest "import"))
  431.     (delete (tackon bin-dest "umsdoctor"))
  432.     (rename (tackon tool-dest "importexport/umsdoctor") (tackon bin-dest "umsdoctor"))
  433.   )
  434. )
  435.  
  436. (if (in tools 4)
  437.   (
  438.     (working "Installing UMS Password")
  439.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing UMS Password\" -I -a x UMS-Release_10.9_1:tools/UMSPassword.LHA \"" tool-dest "\"")
  440.       (prompt "Installing UMS Password")
  441.     )
  442.     (delete (tackon bin-dest "umspasswd"))
  443.     (rename (tackon tool-dest "UMSPassword/umspasswd") (tackon bin-dest "umspasswd"))
  444.     (delete (tackon bin-dest "umspasswd.nomui"))
  445.     (rename (tackon tool-dest "UMSPassword/umspasswd.nomui") (tackon bin-dest "umspasswd.nomui"))
  446.   )
  447. )
  448.  
  449. (if (in tools 5)
  450.   (
  451.     (working "Installing Receiver2Folder")
  452.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing Receiver2Folder\" -I -a x UMS-Release_10.9_1:tools/Receiver2Folder.LHA \"" tool-dest "\"")
  453.       (prompt "Installing Receiver2Folder")
  454.     )
  455.     (delete (tackon bin-dest "Receiver2Folder"))
  456.     (rename (tackon tool-dest "Receiver2Folder/Receiver2Folder") (tackon bin-dest "Receiver2Folder"))
  457.   )
  458. )
  459.  
  460. (if (in tools 6)
  461.   (
  462.     (working "Installing ReadMessage")
  463.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing ReadMessage\" -I -a x UMS-Release_10.9_1:tools/ReadMessage.LHA \"" tool-dest "\"")
  464.       (prompt "Installing ReadMessage")
  465.     )
  466.     (delete (tackon bin-dest "ReadMessage"))
  467.     (rename (tackon tool-dest "ReadMessage/ReadMessage") (tackon bin-dest "ReadMessage"))
  468.   )
  469. )
  470.  
  471. (if (in tools 7)
  472.   (
  473.     (working "Installing GenMail")
  474.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing GenMail\" -I -a x UMS-Release_10.9_1:tools/GenMail.LHA \"" tool-dest "\"")
  475.       (prompt "Installing GenMail")
  476.     )
  477.     (delete (tackon bin-dest "GenMail"))
  478.     (rename (tackon tool-dest "GenMail/GenMail") (tackon bin-dest "GenMail"))
  479.   )
  480. )
  481.  
  482. (if (in tools 8)
  483.   (
  484.     (working "Installing ConfUMS")
  485.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing ConfUMS\" -I -a x UMS-Release_10.9_1:tools/ConfUMS.LHA \"" tool-dest "\"")
  486.       (prompt "Installing ConfUMS")
  487.     )
  488.   )
  489. )
  490.  
  491. (if (in tools 9)
  492.   (
  493.     (working "Installing UMSMM")
  494.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing UMSMM\" -I -a x UMS-Release_10.9_1:tools/UMSMM.LHA \"" tool-dest "\"")
  495.       (prompt "Installing UMSMM")
  496.     )
  497.   )
  498. )
  499.  
  500. (if (in tools 10)
  501.   (
  502.     (working "Installing Expire")
  503.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing Expire\" -I -a x UMS-Release_10.9_1:tools/Expire.LHA \"" tool-dest "\"")
  504.       (prompt "Installing Expire")
  505.     )
  506.     (delete (tackon bin-dest "Expire"))
  507.     (rename (tackon tool-dest "expire/Expire") (tackon bin-dest "Expire"))
  508.   )
  509. )
  510.  
  511. (if (in tools 11)
  512.   (
  513.     (working "Installing Bouncer")
  514.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing Bouncer\" -I -a x UMS-Release_10.9_1:tools/Bouncer.LHA \"" tool-dest "\"")
  515.       (prompt "Installing Bouncer")
  516.     )
  517.     (delete (tackon bin-dest "bouncer"))
  518.     (rename (tackon tool-dest "Bouncer/bouncer") (tackon bin-dest "bouncer"))
  519.     (delete (tackon bin-dest "unbounce"))
  520.     (rename (tackon tool-dest "Bouncer/unbounce") (tackon bin-dest "unbounce"))
  521.   )
  522. )
  523.  
  524. (if (in tools 12)
  525.   (
  526.     (working "Installing FixAccess")
  527.     (run (cat "UMS-Release_10.9_1:Install-Support/LhA >\"CON:0/40//120/Installing FixAccess\" -I -a x UMS-Release_10.9_1:tools/FixAccess.LHA \"" tool-dest "\"")
  528.       (prompt "Installing FixAccess")
  529.     )
  530.     (delete (tackon bin-dest "FixAccess"))
  531.     (rename (tackon tool-dest "FixAccess/FixAccess") (tackon bin-dest "FixAccess"))
  532.   )
  533. )
  534.  
  535. (complete 15)
  536.  
  537. ; -------------------------------------------------------------------------
  538.  
  539. (askdisk
  540.   (dest "UMS-Release_10.9_2")
  541.   (prompt "Please insert disk 2 of UMS Release 10.9 in any drive")
  542.   (help @askdisk-help)
  543.   (assigns)
  544. )
  545.  
  546. ; -------------------------------------------------------------------------
  547.  
  548. (set readers
  549.   (askoptions
  550.     (prompt "Which message readers do you want to install?")
  551.     (default 3)
  552.     (help @askoptions-help)
  553.     (choices "IntuiNews" "RUMS" "Mimas" "MUMS" "ReadX")
  554.   )
  555. )
  556.  
  557. (if (<> readers 0)
  558.   (
  559.     (makedir (tackon @default-dest "reader")
  560.       (prompt "Creating reader directory")
  561.     )
  562.     (set reader-dest (tackon @default-dest "reader/"))
  563.   )
  564. )
  565.  
  566. (if (in readers 0)
  567.   (
  568.     (working "Installing IntuiNews reader")
  569.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing IntuiNews reader\" -I -a x UMS-Release_10.9_2:reader/IntuiNews.LHA \"" reader-dest "\"")
  570.       (prompt "Installing IntuiNews reader")
  571.     )
  572.  
  573.     (set intuilang
  574.       (askoptions
  575.         (prompt "Which languages do you want to use for IntuiNews?")
  576.         (default 7)
  577.         (help @askoptions-help)
  578.         (choices "english" "deutsch" "italiano")
  579.       )
  580.     )
  581.  
  582.     (if (exists "LIBS:locale.library")
  583.       (
  584.         (if (in intuilang 1)
  585.           (
  586.             (if (askbool
  587.                   (prompt "Do you want to use the completely localized german version or "
  588.                           "do you prefer a carefully localized german version which "
  589.                           "doesn't translate common english expressions?")
  590.                   (default 1)
  591.                   (choices "Completely localized" "Carefully localized")
  592.                   (help @askbool-help))
  593.               (
  594.                 (copylib
  595.                   (help @copylib-help)
  596.                   (prompt "Installing \"volldeutsch\" localization")
  597.                   (source (tackon reader-dest "IntuiNews/locale/catalogs/volldeutsch/IntuiNews.catalog"))
  598.                   (dest "LOCALE:catalogs/deutsch/")
  599.                 )
  600.               )
  601.               (
  602.                 (copylib
  603.                   (help @copylib-help)
  604.                   (prompt "Installing german localization")
  605.                   (source (tackon reader-dest "IntuiNews/locale/catalogs/deutsch/IntuiNews.catalog"))
  606.                   (dest "LOCALE:catalogs/deutsch/")
  607.                 )
  608.               )
  609.             )
  610.           )
  611.         )
  612.         (if (in intuilang 2)
  613.           (copylib
  614.             (help @copylib-help)
  615.             (prompt "Installing italian localization")
  616.             (source (tackon reader-dest "IntuiNews/locale/catalogs/italiano/IntuiNews.catalog"))
  617.             (dest "LOCALE:catalogs/italiano/")
  618.           )
  619.         )
  620.       )
  621.     )
  622.  
  623.     (run (cat "Delete >NIL: \"" (tackon reader-dest "IntuiNews/locale(%|.info)") "\" ALL"))
  624.  
  625.     (if (= intuilang 4)
  626.       (
  627.         (set intuilang
  628.           (askoptions
  629.             (prompt "Currently there is no italian online documentation."
  630.                     "Which of the existing translations would you like to install?")
  631.             (default 3)
  632.             (help @askoptions-help)
  633.             (choices "english" "deutsch")
  634.           )
  635.         )
  636.       )
  637.     )
  638.  
  639.     (if (in intuilang 0)
  640.       (
  641.         (set docpath
  642.           (expandpath
  643.             (askdir
  644.               (prompt "Select a destination for the english online documentation")
  645.               (help @askdir-help)
  646.               (default "HELP:english/")
  647.             )
  648.           )
  649.         )
  650.         (copyfiles
  651.           (help @copyfiles-help)
  652.           (prompt "Installing english online documentation")
  653.           (infos)
  654.           (source (tackon reader-dest "IntuiNews/docs/english/IntuiNews.guide"))
  655.           (dest docpath)
  656.           (optional "force" "askuser")
  657.         )
  658.       )
  659.     )
  660.  
  661.     (if (in intuilang 1)
  662.       (
  663.         (set docpath
  664.           (expandpath
  665.             (askdir
  666.               (prompt "Select a destination for the german online documentation")
  667.               (help @askdir-help)
  668.               (default "HELP:deutsch/")
  669.             )
  670.           )
  671.         )
  672.         (copyfiles
  673.           (help @copyfiles-help)
  674.           (prompt "Installing german online documentation")
  675.           (infos)
  676.           (source (tackon reader-dest "IntuiNews/docs/deutsch/IntuiNews.guide"))
  677.           (dest docpath)
  678.           (optional "force" "askuser")
  679.         )
  680.       )
  681.     )
  682.  
  683.     (run (cat "Delete >NIL: \"" (tackon reader-dest "IntuiNews/Docs(%|.info)") "\" ALL"))
  684.  
  685.     (delete (tackon @default-dest "IntuiNews"))
  686.     (rename (tackon reader-dest "IntuiNews/IntuiNews")      (tackon @default-dest "IntuiNews"))
  687.     (delete (tackon @default-dest "IntuiNews.info"))
  688.     (rename (tackon reader-dest "IntuiNews/IntuiNews.info") (tackon @default-dest "IntuiNews.info"))
  689.   )
  690. )
  691.  
  692. (complete 25)
  693.  
  694. (if (in readers 1)
  695.   (
  696.     (working "Installing RUMS reader")
  697.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing RUMS reader\" -I -a x UMS-Release_10.9_2:reader/RUMS.LHA \"" reader-dest "\"")
  698.       (prompt "Installing RUMS reader")
  699.     )
  700.  
  701.     (delete      (tackon @default-dest "RUMS"))
  702.     (rename (tackon reader-dest "RUMS/RUMS")      (tackon @default-dest "RUMS"))
  703.     (delete (tackon @default-dest "RUMS.info"))
  704.     (rename (tackon reader-dest "RUMS/RUMS.info") (tackon @default-dest "RUMS.info"))
  705.     (delete      (tackon bin-dest "Wrap"))
  706.     (rename (tackon reader-dest "RUMS/Wrap")      (tackon bin-dest "Wrap"))
  707.   )
  708. )
  709.  
  710. (complete 30)
  711.  
  712. (if (in readers 2)
  713.   (
  714.     (message "Sorry, Mimas is only available as beta version, because "
  715.              "it is not completed yet!\n\n"
  716.  
  717.              "It's author André Schenk can be reached as follows:\n\n"
  718.  
  719.              "UUCP: andre@melior.stgt.sub.org\n"
  720.              "FIDO: 2:2407/106.42@fidonet\n")
  721.   )
  722. )
  723.  
  724. (if (in readers 3)
  725.   (
  726.     (message "MUMS ist currently in beta test! Please contact Klaus Melchior "
  727.              "for additional information.\n\n"
  728.  
  729.              "He can be reached as follows:\n\n"
  730.  
  731.              "UUCP: klaus_melchior@mowgli.fido.de\n"
  732.              "ADSP: kmel@eifel.adsp.sub.org\n"
  733.              "Fido: 2:242/7.2@Fidonet\n")
  734.   )
  735. )
  736.  
  737. (if (in readers 4)
  738.   (
  739.     (message "Sorry, ReadX is only available as beta version, "
  740.              "because SteveX is too busy and Kai Bolay is too lazy "
  741.              "to complete it.\n\n"
  742.  
  743.              "Steve Tibbet can be reached as follows:\n\n"
  744.  
  745.              "UUCP: SteveX@cup.portal.com\n")
  746.   )
  747. )
  748.  
  749. ; -------------------------------------------------------------------------
  750.  
  751.  
  752. (if (= client 0)
  753.   (
  754.     (set bbss
  755.       (askoptions
  756.         (prompt "Which Bulletin Board Systems do you want to install?")
  757.         (default 0)
  758.         (help @askoptions-help)
  759.         (choices "BBX" "BSTalk" "KMS" "TransAmiga")
  760.       )
  761.     )
  762.   )
  763.   (
  764.     (set bbss 0)
  765.   )
  766. )
  767.  
  768. (if (in bbss 0)
  769.   (
  770.     (message "Sorry, BBX does not support UMS yet.\n\n"
  771.  
  772.              "Steve Tibbet can be reached as follows:\n\n"
  773.  
  774.              "UUCP: SteveX@cup.portal.com\n")
  775.   )
  776. )
  777.  
  778. (if (in bbss 1)
  779.   (
  780.     (message "Sorry, BSTalk is only available as beta version!\n\n"
  781.  
  782.              "It's author Andreas Krieg can be reached as follows:\n\n"
  783.  
  784.              "UUCP: andi@bline.stgt.sub.org\n"
  785.              "Fido: 2:2407/107@fidonet\n")
  786.   )
  787. )
  788.  
  789. (if (in bbss 2)
  790.   (
  791.     (message "Sorry, KMS is only available as beta version!\n\n"
  792.  
  793.              "It's author Thomas Schwarz can be reached as follows:\n\n"
  794.  
  795.              "UUCP: blacky@bmagic.incubus.sub.org\n"
  796.              "Fido: 2:242/11.1@fidonet\n")
  797.   )
  798. )
  799.  
  800. (if (in bbss 3)
  801.   (
  802.     (message "Sorry, TransAmiga is not part of this distribution\n\n"
  803.  
  804.              "Please contact Sami Radwan for more information:\n\n"
  805.  
  806.              "UUCP: saradw1@mvmhp.ciw.uni-karlsruhe.de\n"
  807.              "Fido: 2:2476/12@fidonet\n")
  808.   )
  809. )
  810.  
  811. ; -------------------------------------------------------------------------
  812.  
  813. (if (= client 0)
  814.   (
  815.     (set drivers
  816.       (askoptions
  817.         (prompt "In which networks do you want to participate?")
  818.         (default 0)
  819.         (help @askoptions-help)
  820.         (choices "UUCP" "Fido" "Maus" "Z-Netz" "QWK")
  821.       )
  822.     )
  823.   )
  824.   (
  825.     (set drivers 0)
  826.   )
  827. )
  828.  
  829. (if (<> drivers 0)
  830.   (
  831.     (makedir (tackon @default-dest "drivers")
  832.       (prompt "Creating drivers directory")
  833.     )
  834.     (set driver-dest (tackon @default-dest "drivers/"))
  835.   )
  836. )
  837.  
  838. (if (in drivers 0)
  839.   (
  840.     (working "Installing Usenet subsystem")
  841.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing Usenet subsystem\" -I -a x UMS-Release_10.9_2:drivers/uucp.LHA \"" driver-dest "\"")
  842.       (prompt "Installing Usenet subsystem")
  843.     )
  844.     (delete    (tackon bin-dest "compress"))
  845.     (rename (tackon driver-dest "uucp/bin/compress")    (tackon bin-dest "compress"))
  846.     (delete        (tackon bin-dest "gzip"))
  847.     (rename (tackon driver-dest "uucp/bin/gzip")        (tackon bin-dest "gzip"))
  848.     (delete    (tackon bin-dest "ums2uucp"))
  849.     (rename (tackon driver-dest "uucp/bin/ums2uucp")    (tackon bin-dest "ums2uucp"))
  850.     (delete  (tackon bin-dest "uucico116a"))
  851.     (rename (tackon driver-dest "uucp/bin/uucico116a")  (tackon bin-dest "uucico116a"))
  852.     (delete      (tackon bin-dest "freeze"))
  853.     (rename (tackon driver-dest "uucp/bin/freeze")      (tackon bin-dest "freeze"))
  854.     (delete (tackon bin-dest "testaddress"))
  855.     (rename (tackon driver-dest "uucp/bin/testaddress") (tackon bin-dest "testaddress"))
  856.     (delete      (tackon bin-dest "uucico"))
  857.     (rename (tackon driver-dest "uucp/bin/uucico")      (tackon bin-dest "uucico"))
  858.     (delete       (tackon bin-dest "uuxqt"))
  859.     (rename (tackon driver-dest "uucp/bin/uuxqt")       (tackon bin-dest "uuxqt"))
  860.  
  861.     (run (cat "Delete >NIL: \"" (tackon driver-dest "uucp/bin") "\""))
  862.  
  863.     (copylib
  864.       (help @copylib-help)
  865.       (prompt "Installing OwnDevUnit.library")
  866.       (confirm)
  867.       (source (tackon driver-dest "uucp/libs/OwnDevUnit.library"))
  868.       (dest "LIBS:")
  869.     )
  870.  
  871.     (run (cat "Delete >NIL: \"" (tackon driver-dest "uucp/libs") "\" ALL"))
  872.  
  873.     (message "Now configuring your Usenet subsystem")
  874.     (set uucpfeed
  875.       (askstring
  876.         (prompt "Please enter the name of your newsfeed (without domain)")
  877.         (help @askstring-help)
  878.         (default "feed")
  879.       )
  880.     )
  881.     (set dumbhost
  882.       (askbool
  883.         (prompt "Does your newsfeed rely on information in the UUCP mail "
  884.                 "envelopes (RFC976 format) instead of parsing to RFC822 "
  885.                 "header?\n\n"
  886.                 "Usually it does not, but if your newsfeed is running "
  887.                 "Dillon UUCP it requires this outdated information.")
  888.         (default 1)
  889.         (help @askbool-help)
  890.       )
  891.     )
  892.     (set binaryencoding
  893.       (askbool
  894.         (prompt "Do you want \"binary\" instead of \"8bit\" as MIME "
  895.                 "contents encoding type?\n\n"
  896.                 "Normally you should use \"8bit\", but if you can't "
  897.                 "assure that the line length is always smaller "
  898.                 "than 1000, then use \"binary\".")
  899.         (default 0)
  900.         (help @askbool-help)
  901.       )
  902.     )
  903.     (set deletedupes
  904.       (askbool
  905.         (prompt "Do you want bad jobs, which had only dupe errors "
  906.                 "to be automatically deleted?\n\n"
  907.                 "Normally duplicate messages are flagged as error "
  908.                 "and the job is not deleted.")
  909.         (default 0)
  910.         (help @askbool-help)
  911.       )
  912.     )
  913.     (set dillon (exists "UULIB:config" (noreq)))
  914.  
  915.     (if dillon
  916.       (
  917.         (message "A UUCP installation was detected. UMS-UUCP will use "
  918.                  "the config files (\"UULIB:config\", \"UULIB:L.sys\") "
  919.                  "of this installation. Please check if they are correct.\n")
  920.       )
  921.       (
  922.         (set feedphone
  923.           (askstring
  924.             (prompt "Please enter the telephone number of your newsfeed")
  925.             (help @askstring-help)
  926.             (default "08154711")
  927.           )
  928.         )
  929.         (set uucppassword
  930.           (askstring
  931.             (prompt "Please enter you password for your newsfeed")
  932.             (help @askstring-help)
  933.             (default "secret")
  934.           )
  935.         )
  936.       )
  937.     )
  938.     (set batch
  939.       (askoptions
  940.         (prompt "Please choose exporting method for mail and news")
  941.         (default 2)
  942.         (help @askoptions-help)
  943.         (choices "batch mail" "batch news")
  944.       )
  945.     )
  946.     (if (in batch 0)
  947.       (
  948.         (set mailcompress
  949.           (askchoice
  950.             (prompt "Please select compression method for mail")
  951.             (default 0)
  952.             (help @askchoices-help)
  953.             (choices "none" "compress (\"rcbsmtp\" command)" "compress (\"rbcsmtp\" command)"
  954.                             "freeze (\"rfbsmtp\" command)" "freeze (\"rbfsmtp\" command)"
  955.                             "gzip (\"rgbsmtp\" command)" "gzip (\"rbgsmtp\" command)" )
  956.           )
  957.         )
  958.         (
  959.           (set maxmailcompress
  960.             (asknumber
  961.               (prompt "Please enter maximal number of bytes for one batch")
  962.               (default 65536)
  963.               (help @asknumber-help)
  964.             )
  965.           )
  966.         )
  967.       )
  968.     )
  969.     (if (in batch 1)
  970.       (
  971.         (set newscompress
  972.           (askchoice
  973.             (prompt "Please select compression method for news")
  974.             (default 1)
  975.             (help @askchoices-help)
  976.             (choices "none" "compress" "freeze" "gzip (\"#! gunbatch\" header)" "gzip (\"#! zunbatch\" header)")
  977.           )
  978.         )
  979.         (
  980.           (set maxnewscompress
  981.             (asknumber
  982.               (prompt "Please enter maximal number of bytes for one batch")
  983.               (default 65536)
  984.               (help @asknumber-help)
  985.             )
  986.           )
  987.         )
  988.       )
  989.     )
  990.     (set nodename
  991.       (askstring
  992.         (prompt "Please enter your node's name")
  993.         (help @askstring-help)
  994.         (default "mysystem")
  995.       )
  996.     )
  997.     (set domainname
  998.       (askstring
  999.         (prompt "Please enter your node's domain name")
  1000.         (help @askstring-help)
  1001.         (default "mysystem.foo.bar")
  1002.       )
  1003.     )
  1004.     (set registered
  1005.       (askbool
  1006.         (prompt "Is your node registered in the UUCP maps?")
  1007.         (default 0)
  1008.         (help @askbool-help)
  1009.       )
  1010.     )
  1011.     (if (= dillon 0)
  1012.       (
  1013.         (startup "UUCP"
  1014.           (prompt "Installing Assigns for UMS-UUCP")
  1015.           (help @startup-help)
  1016.           (command (cat "Assign UUSPOOL: \"" (tackon driver-dest "uucp/spool\"\n")))
  1017.           (command (cat "Assign UUPUB: \"" (tackon driver-dest "uucp/pub\"\n")))
  1018.           (command (cat "Assign UULIB: \"" (tackon driver-dest "uucp/lib\"\n")))
  1019.         )
  1020.       )  
  1021.     )
  1022.     (message "UUCiCo is part of this distribution. See the documentation "
  1023.              "for more information how to poll UUCP. Please especially inspect "
  1024.              "\"UULIB:L.sys\" to find out if it's correct.\n")
  1025.   )
  1026. )
  1027.  
  1028. (complete 40)
  1029.  
  1030. (if (in drivers 1)
  1031.   (
  1032.     (working "Installing Fido subsystem")
  1033.     (run "SYS:System/RexxMast")
  1034.     (run "Resident SYS:Rexxc/RX PURE")
  1035.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing Fido subsystem\" -I -a x UMS-Release_10.9_2:drivers/fido.LHA \"" driver-dest "\"")
  1036.       (prompt "Installing Fido subsystem")
  1037.     )
  1038.     (delete (tackon bin-dest "FidoExport"))
  1039.     (rename (tackon driver-dest "fido/FidoExport") (tackon bin-dest "FidoExport"))
  1040.     (delete (tackon bin-dest "FidoImport"))
  1041.     (rename (tackon driver-dest "fido/FidoImport") (tackon bin-dest "FidoImport"))
  1042.  
  1043.     (message "Now configuring your Fido subsystem")
  1044.     (set bossaddr
  1045.       (askstring
  1046.         (prompt "Please enter the address of your boss")
  1047.         (help @askstring-help)
  1048.         (default "1:234/567")
  1049.       )
  1050.     )
  1051.     (run (cat "rx UMS-Release_10.9_2:Install-Support/MakeFidoAlias.rexx " bossaddr))
  1052.     (set fidoalias (getenv "fido-alias"))
  1053.  
  1054.     (set stoneage
  1055.       (if
  1056.         (
  1057.           (askbool
  1058.             (prompt "Does your boss support full four dimensional operation?")
  1059.             (help @askbool-help)
  1060.           )
  1061.         )
  1062.         0 1
  1063.       )
  1064.     )
  1065.     (set pointaddr
  1066.       (askstring
  1067.         (prompt "Please enter your point address")
  1068.         (help @askstring-help)
  1069.         (default (cat bossaddr ".x"))
  1070.       )
  1071.     )
  1072.     (if stoneage
  1073.       (
  1074.         (set fakeaddr
  1075.           (askstring
  1076.             (prompt "Please enter your fake address")
  1077.             (help @askstring-help)
  1078.             (default "567/8")
  1079.           )
  1080.         )
  1081.       )
  1082.     )
  1083.     (set fidoarccmd
  1084.       (askstring
  1085.         (prompt "Please enter AmigaDOS command to crunch your messages\n\n")
  1086.         (help @askstring-help)
  1087.         (default "LhA -I -u -m -U2048 m %s %s")
  1088.       )
  1089.     )
  1090.     (set fidodearccmd
  1091.       (askstring
  1092.         (prompt "Please enter AmigaDOS command to decrunch your messages\n\n")
  1093.         (help @askstring-help)
  1094.         (default "LhA -I -m -f -x0 -U8192 x %s %s")
  1095.       )
  1096.     )
  1097.  
  1098.     (message "A fido mailer is not part of the UMS distribution "
  1099.              "You'll need TrapDoor or any other fido mailer in order "
  1100.              "to run a fido point. You must configure this mailer by hand.\n\n")
  1101.   )
  1102. )
  1103.  
  1104. (complete 50)
  1105.  
  1106. (if (in drivers 2)
  1107.   (
  1108.     (working "Installing Maus subsystem")
  1109.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing Maus subsystem\" -I -a x UMS-Release_10.9_2:drivers/maus.LHA \"" driver-dest "\"")
  1110.       (prompt "Installing Maus subsystem")
  1111.     )
  1112.     (delete (tackon bin-dest "m2ums"))
  1113.     (rename (tackon driver-dest "maus/Maustausch/m2ums") (tackon bin-dest "m2ums"))
  1114.     (delete (tackon bin-dest "ums2m"))
  1115.     (rename (tackon driver-dest "maus/Maustausch/ums2m") (tackon bin-dest "ums2m"))
  1116.  
  1117.     (delete (tackon rexx-dest "MultiMaus.rexx"))
  1118.     (rename (tackon driver-dest "maus/MultiMaus/MultiMaus.rexx") (tackon rexx-dest "MultiMaus.rexx"))
  1119.  
  1120.     (delete (tackon bin-dest "UMSGroup"))
  1121.     (rename (tackon driver-dest "maus/UMSGroup/UMSGroup") (tackon bin-dest "UMSGroup"))
  1122.     (delete (tackon bin-dest "UMSGroup.info"))
  1123.     (rename (tackon driver-dest "maus/UMSGroup/UMSGroup.info") (tackon bin-dest "UMSGroup"))
  1124.  
  1125.     (message "Now configuring your Maus subsystem")
  1126.     (set mausfeed
  1127.       (askstring
  1128.         (prompt "Please enter the address of your Maus mailbox")
  1129.         (help @askstring-help)
  1130.         (default "AC")
  1131.       )
  1132.     )
  1133.  
  1134.     (message "A \"Maustausch\" script is provided. Please read MultiMaus.doc for "
  1135.              "more information.\n")
  1136.   )
  1137. )
  1138.  
  1139. (complete 60)
  1140.  
  1141. (if (in drivers 3)
  1142.   (
  1143.     (working "Installing Z-Netz subsystem")
  1144.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing Z-Netz subsystem\" -I -a x UMS-Release_10.9_2:drivers/z-netz.LHA \"" driver-dest "\"")
  1145.       (prompt "Installing Z-Netz subsystem")
  1146.     )
  1147.     (delete (tackon bin-dest "ZerExport"))
  1148.     (rename (tackon driver-dest "z-netz/ZerExport") (tackon bin-dest "ZerExport"))
  1149.     (delete (tackon bin-dest "ZerImport"))
  1150.     (rename (tackon driver-dest "z-netz/ZerImport") (tackon bin-dest "ZerImport"))
  1151.     (delete (tackon bin-dest "ZerberusMailer"))
  1152.     (rename (tackon driver-dest "z-netz/ZerberusMailer/c/ZerberusMailer") (tackon bin-dest "ZerberusMailer"))
  1153.  
  1154.     (message "Now configuring your Z-Netz subsystem")
  1155.     (set zerserver
  1156.       (askstring
  1157.         (prompt "Please enter the address of your Z-Netz server box")
  1158.         (help @askstring-help)
  1159.         (default "BLAFASEL")
  1160.       )
  1161.     )
  1162.  
  1163.     (message "ZerberusMailer ist part of this distribution, but you have "
  1164.              "to configure it by hand. Sorry for the inconvenience.\n")
  1165.   )
  1166. )
  1167.  
  1168. (complete 65)
  1169.  
  1170. (if (in drivers 4)
  1171.   (
  1172.     (working "Installing QWK subsystem")
  1173.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing QWK subsystem\" -I -a x UMS-Release_10.9_2:drivers/ums-qwk1b.lha \"" driver-dest "\"")
  1174.       (prompt "Installing QWK subsystem")
  1175.     )
  1176.     (delete (tackon bin-dest "QWKExport"))
  1177.     (rename (tackon driver-dest "qwk/QWKExport") (tackon bin-dest "QWKExport"))
  1178.     (delete (tackon bin-dest "QWKImport"))
  1179.     (rename (tackon driver-dest "qwk/QWKImport") (tackon bin-dest "QWKImport"))
  1180.     (makedir (tackon driver-dest "qwk/inbound"))
  1181.     (makedir (tackon driver-dest "qwk/outbound"))
  1182.     (delete (tackon driver-dest "qwk/.Product-Info"))
  1183.  
  1184.     (message "Now configuring your QWK subsystem")
  1185.     (set qwksite
  1186.       (askstring
  1187.         (prompt "Please enter the name of your QWK site")
  1188.         (help @askstring-help)
  1189.         (default "FOOBAR")
  1190.       )
  1191.     )
  1192.     (set qwkmailarea
  1193.       (asknumber
  1194.         (prompt "Into which area should your private mail be put, with the Private flag set?")
  1195.         (default 0)
  1196.         (help @asknumber-help)
  1197.       )
  1198.     )
  1199.     (set qwkpacker
  1200.       (askstring
  1201.         (prompt "Please enter AmigaDOS command to crunch your messages\n\n")
  1202.         (help @askstring-help)
  1203.         (default "LhA -I -u -m -U2048 m %s %s")
  1204.       )
  1205.     )
  1206.     (set qwkunpacker
  1207.       (askstring
  1208.         (prompt "Please enter AmigaDOS command to decrunch your messages\n\n")
  1209.         (help @askstring-help)
  1210.       (default "LhA -I -m -f -x0 -U8192 x %s %s")
  1211.       )
  1212.     )
  1213.   )
  1214. )
  1215.  
  1216. (complete 70)
  1217.  
  1218.  
  1219. ; -------------------------------------------------------------------------
  1220.  
  1221. (if (askbool
  1222.     (prompt "Do you want to install developer material (ARexx, C, Modula-2, Oberon)?")
  1223.     (help @askbool-help)
  1224.     (default 1)
  1225.   )
  1226.   (
  1227.     (working "Installing developer material")
  1228.     (run (cat "UMS-Release_10.9_2:Install-Support/LhA >\"CON:0/40//120/Installing developer material\" -I -a x UMS-Release_10.9_2:developer.LHA \"" @default-dest "\"")
  1229.       (prompt "Installing developer material")
  1230.     )
  1231.     (delete (tackon bin-dest "GroupContents"))
  1232.     (rename (tackon @default-dest "developer/demo/GroupContents") (tackon bin-dest "GroupContents"))
  1233.     (delete (tackon bin-dest "ReadMessage"))
  1234.     (rename (tackon @default-dest "developer/demo/ReadMessage") (tackon bin-dest "ReadMessage"))
  1235.     (delete (tackon bin-dest "ShowGroups"))
  1236.     (rename (tackon @default-dest "developer/demo/ShowGroups") (tackon bin-dest "ShowGroups"))
  1237.     (delete (tackon bin-dest "WriteMessage"))
  1238.     (rename (tackon @default-dest "developer/demo/WriteMessage") (tackon bin-dest "WriteMessage"))
  1239.  
  1240.     (delete (tackon rexx-dest "GroupContents.rexx"))
  1241.     (rename (tackon @default-dest "developer/arexx/GroupContents.rexx") (tackon rexx-dest "GroupContents.rexx"))
  1242.     (delete (tackon rexx-dest "ReadMessage.rexx"))
  1243.     (rename (tackon @default-dest "developer/arexx/ReadMessage.rexx") (tackon rexx-dest "ReadMessage.rexx"))
  1244.     (delete (tackon rexx-dest "ShowGroups.rexx"))
  1245.     (rename (tackon @default-dest "developer/arexx/ShowGroups.rexx") (tackon rexx-dest "ShowGroups.rexx"))
  1246.     (delete (tackon rexx-dest "WriteMessage.rexx"))
  1247.     (rename (tackon @default-dest "developer/arexx/WriteMessage.rexx") (tackon rexx-dest "WriteMessage.rexx"))
  1248.   )
  1249. )
  1250.  
  1251. (complete 80)
  1252.  
  1253. ; -------------------------------------------------------------------------
  1254.  
  1255. (message "Now configuring global variables")
  1256.  
  1257. (set username
  1258.   (askstring
  1259.     (prompt "Please enter your full name")
  1260.     (help @askstring-help)
  1261.     (default "Joe User")
  1262.   )
  1263. )
  1264.  
  1265. (set shortusername
  1266.   (askstring
  1267.     (prompt "Please enter your short name")
  1268.     (help @askstring-help)
  1269.     (default "joe")
  1270.   )
  1271. )
  1272.  
  1273. (set password
  1274.   (askstring
  1275.     (prompt "Please enter your password")
  1276.     (help @askstring-help)
  1277.     (default "joshua")
  1278.   )
  1279. )
  1280.  
  1281. (complete 85)
  1282.  
  1283. ; -------------------------------------------------------------------------
  1284.  
  1285. (if (= client 1)
  1286.   (
  1287.     (set writeit 1)
  1288.     (if (= (exists "ENV:UMSSERVER") 1)
  1289.       (
  1290.         (set writeit
  1291.           (askbool
  1292.             (prompt "ENV:UMSSERVER ist already set. Overwrite "
  1293.                     "this environment variable?")
  1294.             (help @askbool-help)
  1295.           )
  1296.         )
  1297.       )
  1298.     )
  1299.     (if writeit
  1300.       (
  1301.         (set umsserver
  1302.           (askstring
  1303.             (prompt "Please enter the name of the UMS server you want to use.\n\n"
  1304.                     "This name consists of two parts. The part following "
  1305.                     "the \"@\" sign is the name of the machine the server "
  1306.                     "is running on. The other part is the name of the "
  1307.                     "message base on this server. Use \"default\" in order "
  1308.                     "to get the default message base of this server.")
  1309.             (default "default@server")
  1310.             (help @askstring-help)
  1311.           )
  1312.         )
  1313.         (textfile
  1314.           (dest "ENV:UMSSERVER")
  1315.           (append umsserver)
  1316.         )
  1317.         (textfile
  1318.           (dest "ENVARC:UMSSERVER")
  1319.           (append umsserver)
  1320.         )
  1321.       )
  1322.     )
  1323.   )
  1324. )
  1325.  
  1326.  
  1327. ; -------------------------------------------------------------------------
  1328.  
  1329. (if (= client 0)
  1330.   (
  1331.     (set writeit 1)
  1332.  
  1333.     (if (= (exists "ENV:UMSMB.default") 1)
  1334.       (
  1335.         (set writeit
  1336.           (askbool
  1337.             (prompt "ENV:UMSMB.default ist already set. Overwrite "
  1338.                     "this environment variable?")
  1339.             (help @askbool-help)
  1340.           )
  1341.         )
  1342.       )
  1343.     )
  1344.  
  1345.     (if writeit
  1346.       (
  1347.         (textfile
  1348.           (dest "ENV:UMSMB.default")
  1349.           (append mbpath)
  1350.         )
  1351.  
  1352.         (textfile
  1353.           (dest "ENVARC:UMSMB.default")
  1354.           (append mbpath)
  1355.         )
  1356.       )
  1357.     )
  1358.   )
  1359. )
  1360.  
  1361. (complete 90)
  1362.  
  1363. ; -------------------------------------------------------------------------
  1364.  
  1365. (if (= client 0)
  1366.   (
  1367.     (working "Creating configuration files")
  1368.  
  1369.     (if (in drivers 0)
  1370.       (
  1371.         (if (= dillon 0)
  1372.           (
  1373.             (textfile
  1374.               (dest (tackon driver-dest "uucp/lib/seq"))
  1375.               (append "0000")
  1376.             )
  1377.             (textfile
  1378.               (dest (tackon driver-dest "uucp/lib/config"))
  1379.  
  1380.               (append "#\n")
  1381.               (append "#  UULIB:config & S:UUConfig -- UUCP Configuration\n\n")
  1382.               (append "#  Notes: - Copy this file to S:UUConfig\n")
  1383.               (append "#         - UULIB:config and S:UUConfig must be the same file!\n")
  1384.               (append "#\n\n")
  1385.               (append "#  Node name\n")
  1386.               (append "#  WARNING: some UUCP systems can't handle names longer than 7 characters!\n")
  1387.               (append (cat "NodeName      " nodename "\n\n"))
  1388.               (append "#  User name\n")
  1389.               (append (cat "UserName      " shortusername "\n\n"))
  1390.               (append "#  Log level\n")
  1391.               (append "Debug         0\n\n")
  1392.               (append "#  Processor for incoming packets (Default: Uuxqt)\n")
  1393.               (append "#Uuxqt        uuxqt\n\n")
  1394.               (append "#  Spool directory (Default: UUSPOOL:)\n")
  1395.               (append "#UUSpool      UUCP:Spool\n\n")
  1396.               (append "#  Config directory (Default: UULIB:)\n")
  1397.               (append "#UULib        UUCP:Lib\n\n")
  1398.               (append "#  Public directory (Default: UUPUB:)\n")
  1399.               (append "#UUPub        UUCP:Public\n\n")
  1400.               (append "#  Modem init string\n")
  1401.               (append "#ModemInit    ATZ\n\n")
  1402.               (append "#  Modem answer read timeouts in seconds (default 60)\n")
  1403.               (append "#TimeOut      60\n\n")
  1404.             )
  1405.  
  1406.             (textfile
  1407.               (dest (tackon driver-dest "uucp/lib/L.sys"))
  1408.  
  1409.               (append "#\n")
  1410.               (append "#  UULIB:L.sys -- UUCP sites we connect to\n")
  1411.               (append "#\n")
  1412.               (append "# Node   Time Device Baudrate Number/     Expect-Send strings\n")
  1413.               (append "#                             Dialstring\n")
  1414.               (append "#\n")
  1415.               (append (cat uucpfeed " Any  SER:   38400    ATD" feedphone))
  1416.               (append (cat " ogin:-\\r-ogin: " nodename " ssword: " uucppassword "\\r\n"))
  1417.             )
  1418.           )
  1419.         )
  1420.       )  
  1421.     )
  1422.   )
  1423. )
  1424.  
  1425. ; -------------------------------------------------------------------------
  1426.  
  1427. (if (= client 0)
  1428.   (
  1429.     (if (in readers 1)
  1430.       (
  1431.         (textfile
  1432.           (dest (tackon reader-dest "rums/.rumsrc"))
  1433.  
  1434.           (append "editor = c:Ed\n")
  1435.           (append "signature = \"   Bye!*n\"\n")
  1436.           (append "\n")
  1437.           (append (cat "addressdir = \"" (tackon reader-dest "RUMS/") "\"\n"))
  1438.           (append (cat "rumsdir = \"" (tackon reader-dest "RUMS/") "\"\n"))
  1439.           (append (cat "rumslog = \"" (tackon reader-dest "RUMS/rums.log") "\"\n"))
  1440.           (append "\n")
  1441.           (append "startup.general = {\n")
  1442.           (append "  PROMPT \"Welcome to RUMS!\"\n")
  1443.           (append "  SPRINTF addressbook \"%srums.addresses\" addressdir\n")
  1444.           (append "  SPRINTF writefile \"T:rums.writefile.%lx\" #p\n")
  1445.           (append "  SPRINTF readfile \"T:rums.readfile.%lx\" #p\n")
  1446.           (append "  SPRINTF grouplist1 \"T:rums.grouplist.%lx\" #p\n")
  1447.           (append "  SPRINTF grouplist2 \"T:rums.grouplist.sorted.%lx\" #p\n")
  1448.           (append "  SPRINTF file \"%srums.macros\" ( rumsdir )\n")
  1449.           (append "  EXE loadvars\n")
  1450.           (append "}\n")
  1451.           (append "loadvars = {\n")
  1452.           (append "  IF (LOAD $file) ()\n")
  1453.           (append "     (\n")
  1454.           (append "       SPRINTF line \"Unable to load file '%s' !\" \"file\"\n")
  1455.           (append "       NOTIFY $line\n")
  1456.           (append "       QUIT\n")
  1457.           (append "     )\n")
  1458.           (append "}\n")
  1459.           (append "\n")
  1460.           (append "; default startup\n")
  1461.           (append "; reset selected (bit 0) and postponed (bit 6)\n")
  1462.           (append "\n")
  1463.           (append "startup = {\n")
  1464.           (append "  TIMEOUT 1200\n")
  1465.           (append "  EXE startup.general\n")
  1466.           (append "  SPRINTF file \"%srums.keys\" ( rumsdir )\n")
  1467.           (append "  EXE loadvars\n")
  1468.           (append "  SELSTATUS 0 ~0\n")
  1469.           (append "  SELSTATUS 6 ~6\n")
  1470.           (append "  SELSTATUS 1 ~1\n")
  1471.           (append "  SELSTATUS R7 1\n")
  1472.           (append "  SGROUP \"\" 1\n")
  1473.           (append "  SET group \"Mail\"\n")
  1474.           (append "  EXE msgselect\n")
  1475.           (append "}\n")
  1476.           (append "\n")
  1477.         )
  1478.       )
  1479.     )
  1480.   )
  1481. )
  1482.  
  1483. (complete 95)
  1484.  
  1485. ; -------------------------------------------------------------------------
  1486.  
  1487. (if (= client 0)
  1488.   (
  1489.     (set writeit 1)
  1490.  
  1491.     (if (= (exists (tackon mbpath "ums.config")) 1)
  1492.       (
  1493.         (set writeit
  1494.           (askbool
  1495.             (prompt "ums.config already exists in your message base. Overwrite "
  1496.                     "this configuration file?")
  1497.             (help @askbool-help)
  1498.           )
  1499.         )
  1500.       )
  1501.     )
  1502.   )
  1503.   (
  1504.     (set writeit 0)
  1505.   )
  1506. )
  1507.  
  1508. (if writeit
  1509.   (
  1510.     (if (in drivers 0)
  1511.       (
  1512.         (set domainaddress domainname)
  1513.       )
  1514.       (
  1515.         (if (in drivers 1)
  1516.           (
  1517.             (run (cat "rx UMS-Release_10.9_2:Install-Support/MakeFidoDomain.rexx " pointaddr))
  1518.             (set domainaddress (getenv "fido-domain"))
  1519.           )
  1520.           (
  1521.             (if (in drivers 2)
  1522.               (
  1523.                 (set domainaddress (cat shortusername "." mausfeed ".maus.de"))
  1524.               )
  1525.               (
  1526.                 (if (in drivers 3)
  1527.                   (
  1528.                     (set domainaddress (cat shortusername "." zerserver ".zer.sub.org"))
  1529.                   )
  1530.                   (
  1531.                     (set domainaddress
  1532.                       (askstring
  1533.                         (prompt "Please enter a unique name (domain address) for your computer")
  1534.                         (help @askstring-help)
  1535.                         (default "mycomputer.foo.bar")
  1536.                       )
  1537.                     )
  1538.                   )
  1539.                 )
  1540.               )
  1541.             )
  1542.           )
  1543.         )
  1544.       )
  1545.     )
  1546.  
  1547.     (set aka "")
  1548.  
  1549.     (if (in drivers 0)
  1550.       (
  1551.         (if (<> aka "") ((set aka (cat aka "\n"))))
  1552.         (set aka (cat aka "#?@" domainname))
  1553.       )
  1554.     )
  1555.  
  1556.     (if (in drivers 1)
  1557.       (
  1558.         (if (<> aka "") ((set aka (cat aka "\n"))))
  1559.         (set aka (cat aka pointaddr "@fidonet"))
  1560.         (if stoneage
  1561.           (
  1562.             (if (<> aka "") ((set aka (cat aka "\n"))))
  1563.             (set aka (cat aka fakeaddr "@fidonet"))
  1564.           )
  1565.         )
  1566.       )
  1567.     )
  1568.  
  1569.     (textfile
  1570.       (dest (tackon mbpath "ums.config"))
  1571.  
  1572.       (append "DOMAIN-ADDRESS = \"" domainaddress "\"\n\n")
  1573.  
  1574.       (append (cat "AKA = \"" aka "\"\n\n"))
  1575.  
  1576.       (append "LOGLEVEL = 7\n")
  1577.       (append (cat "LOGFILE = \"" (tackon @default-dest "ums.log") "\"\n\n"))
  1578.  
  1579.       (append "HDRREADBUF = 4096\n")
  1580.       (append "HDRWRITEBUF = 16384\n")
  1581.       (append "HDRCACHE = 65536\n")
  1582.       (append "TXTREADBUF = 32768\n")
  1583.       (append "TXTWRITEBUF = 65536\n")
  1584.       (append "CLEANBUF = 524288\n")
  1585.       (append "HDRFILL = 80\n")
  1586.       (append "TXTFILL = 80\n")
  1587.       (append "HEADERFIELDS = 1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,17\n")
  1588.       (append "INDEXFIELDS = 1,2,3,4,5,8,9,10,15,16,17\n")
  1589.       (append "HARDFLUSH = 240\n")
  1590.       (append "SOFTFLUSH = 3\n")
  1591.       (append "CHAINQUICK = 1\n")
  1592.       (append "NOCHECKHD = 0\n")
  1593.       (append "ACCESS = #?\n")
  1594.       (append "FULLACCESS = #?\n\n")
  1595.  
  1596. ; -------------------------------------------------------------------------
  1597.  
  1598.       (if (in drivers 0)
  1599.         (
  1600.           (append (cat "uucp.nodename   = " nodename "\n"))
  1601.           (if registered
  1602.             (
  1603.               (append (cat "uucp.pathname   = " nodename "\n"))
  1604.             )
  1605.             (
  1606.               (append (cat "uucp.pathname   = " domainname "\n"))
  1607.             )
  1608.           )
  1609.           (append (cat "uucp.domainname = " domainname "\n\n"))
  1610.         )
  1611.       )
  1612.  
  1613. ; -------------------------------------------------------------------------
  1614.  
  1615.       (if (in drivers 1)
  1616.         (
  1617.           (set inbound  (tackon driver-dest "fido/inbound"))
  1618.           (if (<> (substr inbound (- (strlen inbound) 1) 1) ":")
  1619.             (
  1620.               (set inbound (cat inbound "/"))
  1621.             )
  1622.           )
  1623.           (append (cat "fido.inbound       = \"" inbound  "\"\n"))
  1624.           (set outbound (tackon driver-dest "fido/outbound"))
  1625.           (if (<> (substr outbound (- (strlen outbound) 1) 1) ":")
  1626.             (
  1627.               (set outbound (cat outbound "/"))
  1628.             )
  1629.           )
  1630.           (append (cat "fido.outbound      = \"" outbound "\"\n"))
  1631.           (append "fido.junkcmd       = \"Rename %s %s,BAD\"\n\n")
  1632.         )
  1633.       )
  1634.  
  1635. ; -------------------------------------------------------------------------
  1636.  
  1637.       (if (in drivers 3)
  1638.         (
  1639.           (if (in readers 0)
  1640.             (
  1641.               (append (cat "zer.addressbook  = \"" (tackon reader-dest "IntuiNews/IntuiNews.addresses") "\"\n"))
  1642.             )
  1643.           )
  1644.           (append (cat "zer.download     = \"" (tackon driver-dest "z-netz/download") "\"\n"))
  1645.           (append (cat "zer.upload       = \"" (tackon driver-dest "z-netz/upload") "\"\n"))
  1646.           (append (cat "zer.binary       = \"" (tackon driver-dest "z-netz/binary") "\"\n"))
  1647.           (append "zer.headers      = \"mrn\"\n")
  1648.           (append "zer.footerfilter = \"--#?(MPoint|Zodiac's Point|THE ANSWER)#?\"\n\n")
  1649.         )
  1650.       )
  1651.  
  1652. ; -------------------------------------------------------------------------
  1653.  
  1654.       (if (in drivers 4)
  1655.         (
  1656.           (append "qwk.keeppacket   = \"No\"\n")
  1657.           (append "qwk.addpacket    = \"No\"\n")
  1658.           (append "qwk.tempdir      = \"T:\"\n\n")
  1659.         )
  1660.       )
  1661.  
  1662. ; -------------------------------------------------------------------------
  1663.  
  1664.       (if (in tools 5)
  1665.         (
  1666.           (append "expire.grouplist = \"#?, 14\"\n")
  1667.           (append "expire.mail = 28\n\n")
  1668.         )
  1669.       )
  1670.  
  1671. ; -------------------------------------------------------------------------
  1672.  
  1673.       (if (in readers 0)
  1674.         (
  1675.           (append (cat "IntuiNews.Book = \"" (tackon reader-dest "IntuiNews/IntuiNews.addresses") "\"\n\n"))
  1676.         )
  1677.       )
  1678.  
  1679. ; -------------------------------------------------------------------------
  1680.  
  1681.       (append "user\n")
  1682.       (append (cat "  name           = \"" username "\"\n"))
  1683.       (append "  sysop\n")
  1684.       (append (cat "  alias          = \"" shortusername "\"\n"))
  1685.       (append "  alias          = sysop\n")
  1686.       (if (in drivers 0)
  1687.         (
  1688.           (append "  alias          = postmaster\n")
  1689.           (append "  alias          = root\n")
  1690.         )
  1691.       )
  1692.       (append (cat "  password       = \"" password "\"\n"))
  1693.       (append "  readaccess     = #?\n")
  1694.       (append "  writeaccess    = #?\n")
  1695.       (append "  netaccess      = #?\n")
  1696.       (if (in drivers 0)
  1697.         (
  1698.           (append (cat "  uucp.username  = \"" shortusername "\"\n"))
  1699.         )
  1700.       )
  1701.       (if (in drivers 2)
  1702.         (
  1703.           (append (cat "  maus." mausfeed ".info        = \"IIH, IIK, IIL, IIM, INK, INP, IGT, IGS\"\n"))
  1704.           (append (cat "  maus." mausfeed ".privateinfo = \"IGK, ITG\"\n"))
  1705.         )
  1706.       )
  1707.       (if (in drivers 3)
  1708.         (
  1709.           (append (cat "  zer.username   = \"" shortusername "\"\n"))
  1710.         )
  1711.       )
  1712.       (if (in tools 5)
  1713.         (
  1714.           (append (cat "  expire.private = 365\n"))
  1715.         )
  1716.       )
  1717.       (append "enduser\n\n")
  1718.  
  1719. ; -------------------------------------------------------------------------
  1720.  
  1721.       (if (in drivers 0)
  1722.         (
  1723.           (append "user\n")
  1724.           (append (cat "  name            = uucp." uucpfeed "\n"))
  1725.           (append "  alias           = uucp.default\n")
  1726.           (append "  password        = \"\"\n")
  1727.           (append "  readaccess      = ~(fidonet.#?|maus.#?|zer.#?|qwk.#?)\n")
  1728.           (append "  writeaccess     = #?\n")
  1729.           (append "  netaccess       = #?\n")
  1730.           (append "  import          = #?\n")
  1731.           (append "  export          = ~(#?@fidonet|#?.(un|%)maus|#?.zer|#?@qwk)\n")
  1732.           (append "  distribution    = #?\n")
  1733.           (if dumbhost
  1734.             (
  1735.               (append "  uucp.dumbhost   = Y\n")
  1736.             )
  1737.           )
  1738.           (if binaryencoding
  1739.             (
  1740.               (append "  uucp.encoding   = binary\n")
  1741.             )
  1742.             (
  1743.               (append "  uucp.encoding   = 8bit\n")
  1744.             )
  1745.           )
  1746.           (if deletedupes
  1747.             (
  1748.               (append "  uucp.keepdupes  = N\n")
  1749.             )
  1750.             (
  1751.               (append "  uucp.keepdupes  = Y\n")
  1752.             )
  1753.           )
  1754.           (if (in batch 0)
  1755.             (
  1756.               (if (= mailcompress 0)
  1757.                 (
  1758.                   (append (cat "  uucp.mailexport = rbsmtp,Y,,," maxmailcompress "\n"))
  1759.                 )
  1760.               )
  1761.               (if (= mailcompress 1)
  1762.                 (
  1763.                   (append (cat "  uucp.mailexport = rcbsmtp,Y,compress,," maxmailcompress "\n"))
  1764.                 )
  1765.               )
  1766.               (if (= mailcompress 2)
  1767.                 (
  1768.                   (append (cat "  uucp.mailexport = rbcsmtp,Y,compress,," maxmailcompress "\n"))
  1769.                 )
  1770.               )
  1771.               (if (= mailcompress 3)
  1772.                 (
  1773.                   (append (cat "  uucp.mailexport = rfbsmtp,Y,freeze,," maxmailcompress "\n"))
  1774.                 )
  1775.               )
  1776.               (if (= mailcompress 4)
  1777.                 (
  1778.                   (append (cat "  uucp.mailexport = rbfsmtp,Y,freeze,," maxmailcompress "\n"))
  1779.                 )
  1780.               )
  1781.               (if (= mailcompress 5)
  1782.                 (
  1783.                   (append (cat "  uucp.mailexport = rgbsmtp,Y,gzip,," maxmailcompress "\n"))
  1784.                 )
  1785.               )
  1786.               (if (= mailcompress 6)
  1787.                 (
  1788.                   (append (cat "  uucp.mailexport = rbgsmtp,Y,gzip,," maxmailcompress "\n"))
  1789.                 )
  1790.               )
  1791.             )
  1792.             (
  1793.               (append "  uucp.mailexport = rmail,N\n")
  1794.             )
  1795.           )
  1796.           (if (in batch 1)
  1797.             (
  1798.               (if (= newscompress 0)
  1799.                 (
  1800.                   (append (cat "  uucp.newsexport = rnews,Y,,," maxnewscompress "\n"))
  1801.                 )
  1802.               )
  1803.               (if (= newscompress 1)
  1804.                 (
  1805.                   (append (cat "  uucp.newsexport = rnews,Y,compress,cunbatch," maxnewscompress "\n"))
  1806.                 )
  1807.               )
  1808.               (if (= newscompress 2)
  1809.                 (
  1810.                   (append (cat "  uucp.newsexport = rnews,Y,freeze,funbatch," maxnewscompress "\n"))
  1811.                 )
  1812.               )
  1813.               (if (= newscompress 3)
  1814.                 (
  1815.                   (append (cat "  uucp.newsexport = rnews,Y,gzip,gunbatch," maxnewscompress "\n"))
  1816.                 )
  1817.               )
  1818.               (if (= newscompress 4)
  1819.                 (
  1820.                   (append (cat "  uucp.newsexport = rnews,Y,gzip,zunbatch," maxnewscompress "\n"))
  1821.                 )
  1822.               )
  1823.             )
  1824.             (
  1825.               (append "  uucp.newsexport = rnews,N\n")
  1826.             )
  1827.           )
  1828.           (append "enduser\n\n")
  1829.         )
  1830.       )
  1831.  
  1832. ; -------------------------------------------------------------------------
  1833.  
  1834.       (if (in drivers 1)
  1835.         (
  1836.           (append "user\n")
  1837.           (append "  name              = FidoBoss\n")
  1838.           (append "  alias             = fido.default\n")
  1839.           (append (cat "  alias             = " fidoalias "\n"))
  1840.           (append "  password          = \"\"\n")
  1841.           (append "  readaccess        = fidonet.#?\n")
  1842.           (append "  writeaccess       = fidonet.#?\n")
  1843.           (append "  netaccess         = #?\n")
  1844.           (append "  import            = #?\n")
  1845.           (append "  export            = #?@fidonet\n")
  1846.           (append "  distribution      = #?\n")
  1847.           (append "  fido.netname      = fidonet\n")
  1848.           (append (cat "  fido.pointaddress = " pointaddr "\n"))
  1849.           (if stoneage
  1850.             (
  1851.               (append "  fido.stoneage    = Y\n")
  1852.               (append (cat "  fido.fakeaddress = " fakeaddr "\n"))
  1853.             )
  1854.           )
  1855.           (append (cat "  fido.bossaddress  = " bossaddr "\n"))
  1856.           (append (cat "  fido.arccmd       = \"" fidoarccmd "\"\n"))
  1857.           (append (cat "  fido.dearccmd     = \"" fidodearccmd "\"\n"))
  1858.           (append (cat "  fido.createintl   = \"Y\"\n"))
  1859.           (append "enduser\n\n")
  1860.         )
  1861.       )
  1862.  
  1863. ; -------------------------------------------------------------------------
  1864.  
  1865.       (if (in drivers 2)
  1866.         (
  1867.           (append "user\n")
  1868.           (append (cat "  name              = maus." mausfeed "\n"))
  1869.           (append "  password          = \"\"\n")
  1870.           (append (cat "  readaccess        = maus." mausfeed ".#?\n"))
  1871.           (append (cat "  writeaccess       = maus." mausfeed ".#?\n"))
  1872.           (append "  netaccess         = #?\n")
  1873.           (append "  import            = #?\n")
  1874.           (append "  export            = #?.(un|%)maus\n")
  1875.           (append "  distribution      = #?\n")
  1876.           (append "enduser\n\n")
  1877.         )
  1878.       )
  1879.  
  1880. ; -------------------------------------------------------------------------
  1881.  
  1882.       (if (in drivers 3)
  1883.         (
  1884.           (append "user\n")
  1885.           (append "  name              = Zerberus\n")
  1886.           (append "  password          = \"\"\n")
  1887.           (append "  readaccess        = zer.#?\n")
  1888.           (append "  writeaccess       = zer.#?\n")
  1889.           (append "  netaccess         = #?\n")
  1890.           (append "  import            = #?\n")
  1891.           (append "  export            = #?.zer\n")
  1892.           (append "  distribution      = #?\n")
  1893.           (append (cat "  zer.serverbox     = \"" zerserver ".ZER\"\n"))
  1894.           (append "enduser\n\n")
  1895.         )
  1896.       )
  1897.  
  1898. ; -------------------------------------------------------------------------
  1899.  
  1900.       (if (in drivers 4)
  1901.         (
  1902.           (append "user\n")
  1903.           (append "  name              = QWK-Site\n")
  1904.           (append (cat "  alias             = \"qwk." qwksite "\"\n"))
  1905.           (append "  password          = \"\"\n")
  1906.           (append (cat "  readaccess        = qwk." qwksite ".#?\n"))
  1907.           (append (cat "  writeaccess       = qwk." qwksite ".#?\n"))
  1908.           (append "  netaccess         = #?\n")
  1909.           (append (cat "  import            = \"" qwksite "@qwk\"\n"))
  1910.           (append (cat "  export            = \"" qwksite "@qwk\"\n"))
  1911.           (append "  distribution      = #?\n")
  1912.           (append (cat "  qwk.inbound       = \"" (tackon driver-dest "qwk/inbound") "\"\n"))
  1913.           (append (cat "  qwk.outbound      = \"" (tackon driver-dest "qwk/outbound") "\"\n"))
  1914.           (append (cat "  qwk.pvtarea       = \"" qwkmailarea "\"\n"))
  1915.           (append (cat "  qwk.packer        = \"" qwkpacker "\"\n"))
  1916.           (append (cat "  qwk.unpacker      = \"" qwkunpacker "\"\n"))
  1917.           (append "  qwk.no-hi-conf    = \"No\"\n")
  1918.           (append "enduser\n")
  1919.         )
  1920.       )
  1921.     )
  1922.   )
  1923. )
  1924.  
  1925. ; -------------------------------------------------------------------------
  1926.  
  1927. (if (in readers 0)
  1928.   (
  1929.     (tooltype
  1930.       (prompt "Setting IntuiNews' ToolTypes")
  1931.       (help @tooltype-help)
  1932.       (dest (tackon @default-dest "IntuiNews"))
  1933.       (settooltype "NAME" username)
  1934.       (settooltype "PASSWORD" password)
  1935.       (if (= client 0)
  1936.         (
  1937.           (settooltype "SERVER" "default")
  1938.         )
  1939.         (
  1940.           (settooltype "SERVER" umsserver)
  1941.         )
  1942.       )
  1943.     )
  1944.   )
  1945. )
  1946.  
  1947. (if (in readers 1)
  1948.   (
  1949.     (tooltype
  1950.       (prompt "Setting RUMS' ToolTypes")
  1951.       (help @tooltype-help)
  1952.       (dest (tackon @default-dest "RUMS"))
  1953.       (settooltype "USER" username)
  1954.       (settooltype "PASSWORD" password)
  1955.       (if (= client 0)
  1956.         (
  1957.           (settooltype "SERVER" "default")
  1958.         )
  1959.         (
  1960.           (settooltype "SERVER" umsserver)
  1961.         )
  1962.       )
  1963.       (settooltype "WINDOW" "RAW:0/50//350/RUMS/ALT50/100/200/50")
  1964.       (settooltype "STARTUP" "startup")
  1965.       (settooltype "RUMSRC" (tackon reader-dest "RUMS/.rumsrc"))
  1966.     )
  1967.   )
  1968. )
  1969.  
  1970. ; -------------------------------------------------------------------------
  1971.  
  1972. (working "Creating scripts for tools")
  1973.  
  1974. (if (in tools 5)
  1975.   (
  1976.     (makedir (tackon @default-dest "bak"))
  1977.     (set mbbackup (tackon @default-dest "bak/"))
  1978.     (set mbbackup
  1979.       (expandpath
  1980.         (askdir
  1981.           (prompt "In which disk or drawer should the backup of your message "
  1982.                   "base be placed?\n"
  1983.                   "(A backup is necessery before you invoke \"cleanums\" to "
  1984.                   "physically remove deleted or expired messages)")
  1985.           (help @askdir-help)
  1986.           (default mbbackup)
  1987.         )
  1988.       )
  1989.     )
  1990.  
  1991.     (textfile
  1992.       (dest (tackon script-dest "CleanMB"))
  1993.  
  1994.       (append (cat "Expire " shortusername " " password " ARCHIVE OLD\n"))
  1995.       (append "Wait 3\n")
  1996.       (append "QuitUMS.rexx\n")
  1997.       (append "Wait 3\n")
  1998.       (append (cat "Copy \"" (tackon mbpath ".~(IDcount|hash#?)") "\" TO \"" mbbackup "\"\n"))
  1999.       (append "Wait 3\n")
  2000.       (append "CleanUMS.rexx\n")
  2001.     )
  2002.     (protect (tackon script-dest "CleanMB") 66)
  2003.   )
  2004. )
  2005.  
  2006. ; -------------------------------------------------------------------------
  2007.  
  2008. (working "Creating poll scripts")
  2009.  
  2010. (if (in drivers 0)
  2011.   (
  2012.     (textfile
  2013.       (dest (tackon script-dest "UUCPCall"))
  2014.  
  2015.       (append (cat "ums2uucp -s" uucpfeed "\n"))
  2016.       (append (cat "uucico -s" uucpfeed "\n"))
  2017.     )
  2018.     (protect (tackon script-dest "UUCPCall") 66)
  2019.   )
  2020. )
  2021.  
  2022. (if (in drivers 1)
  2023.   (
  2024.     (textfile
  2025.       (dest (tackon script-dest "FidoCall"))
  2026.  
  2027.       (append "Stack 50000\n")
  2028.       (append "FidoExport FidoBoss\n")
  2029.       (append "TrapDoor CALL BOSS\n")
  2030.       (append "FidoImport\n")
  2031.     )
  2032.     (protect (tackon script-dest "FidoCall") 66)
  2033.   )
  2034. )
  2035.  
  2036. (complete 99)
  2037.  
  2038. (startup "UMS"
  2039.   (prompt "Installing Paths for UMS (binaries/scripts)")
  2040.   (help @startup-help)
  2041.   (set path (cat "\"" bin-dest "\" \"" script-dest "\" \"" rexx-dest "\""))
  2042.   (if (<> readers 0)
  2043.     (
  2044.       (set path (cat path " \"" @default-dest "\""))
  2045.     )
  2046.   )
  2047.   (command (cat "Path " path " ADD\n"))
  2048. )
  2049.  
  2050. (complete 100)
  2051.  
  2052. (exit)
  2053.